home *** CD-ROM | disk | FTP | other *** search
/ HamCall (October 1991) / HamCall (Whitehall Publishing)(1991).bin / bcast / bcstcble / tvchan.asc < prev    next >
Text File  |  1990-10-14  |  2KB  |  54 lines
  1. 10    PRINT"TV CHANNEL FREQUENCY DIRECTORY"
  2. 20    PRINT" ****************************"
  3. 30    PRINT"ENTER TV CHANNEL: ";
  4. 35    INPUT A$
  5. 40    A=ASC(A$): IF A > 64 THEN 300
  6. 50    C=VAL(A$)
  7. 100   IF C < 2 THEN 600
  8. 110   IF C < 5 THEN 200
  9. 120   IF C < 7 THEN 190
  10. 130   IF C < 14 THEN 180
  11. 140   PRINT"UHF OR CABLE ";
  12. 145   INPUT B$
  13. 150   IF LEFT$(B$,1)="C" THEN 320
  14. 160   IF C > 83 THEN 600
  15. 170   BC=14:BF=470:GOTO 400
  16. 180   BC=7:BF=174:GOTO 400
  17. 190   BC=5:BF=76:GOTO 400
  18. 200   BC=2:BF=54:GOTO 400
  19. 300   IF A > 90 THEN 600
  20. 310   C=A-51:PRINT A$;" =CABLE CH# ";C
  21. 320   IF C > 40 THEN 600
  22. 330   IF C < 23 THEN PRINT"MID BAND CHANNEL":GOTO 360
  23. 340   PRINT"SUPER BAND CHANNEL"
  24. 350   BC=23:BF=216:GOTO 400
  25. 360   BC=14:BF=120
  26. 400   LB=BF+(C-BC)*6
  27. 410   UB=LB+6
  28. 420   FV=LB+1.25:FC=FV+3.58:FA=FV+4.5
  29. 430   FL=LB+47
  30. 440   IL=UB+41*2:IU=LB+47*2
  31. 450   PRINT"FREQUENCY RANGE=";LB;"TO";UB;" MHZ"
  32. 460   PRINT"PIX CARRIER=";FV;" MHZ"
  33. 470   PRINT"COLOR CARRIER=";FC;" MHZ"
  34. 480   PRINT"SOUND CARRIER=";FA;" MHZ"
  35. 490   PRINT"NOTE: THE FOLLOWING"
  36. 500   PRINT"ASSUMES A RECEIVER"
  37. 510   PRINT"WITH A 41-47 MHZ I.F."
  38. 515   PRINT"(41.25 MHZ SOUND, 45.75 MHZ PIX)"
  39. 520   PRINT"LOCAL OSCILLATOR=";FL;" MHZ"
  40. 540   PRINT"IMAGE RANGE=";IL;" TO ";IU;" MHZ"
  41. 550   PRINT"MORE?";
  42. 560   INPUT C$:IF LEFT$(C$,1)="Y" THEN GOTO 20
  43. 580   END
  44. 600   PRINT"NON-EXSISTENT CHANNEL":GOTO 20
  45. 800   REM FROM RADIO ELECTRONICS
  46. 810   REM      JAN 1987
  47. 820   REM      BY WA9ZPM
  48. 900   REM FOR CABLE AND/OR UHF TOP OF SET CONVERT:
  49. 910   REM CHANGE AS FOLLOWS AND DELETE LINE 515
  50. 920   REM 430 FL=ABS(LB-(OUTPUT CHANNEL LOWER RANGE))
  51. 930   REM 440 IF=ABS(LB-(OUTPUT CHANNEL LOWER RANGE))
  52. 940   REM 500 PRINT"IS FOR A CONVERTER"
  53. 950   REM 510 PRINT"WITH AN OUTPUT ON CHANNEL (NUMBER
  54.